home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / examples / primes < prev    next >
Text File  |  1994-09-20  |  330b  |  26 lines
  1. //
  2. // An example that finds all primes less than limit
  3. //
  4.  
  5. primes = function (limit) 
  6. {
  7.   local (limit)
  8.  
  9.   i = 1; j = 0; cnt = 0;
  10.   for(k in 2:limit) 
  11.   {
  12.     j = 2;
  13.     while(mod(k,j) != 0) 
  14.     {
  15.       j++;
  16.     }
  17.     if(j == k)     // Found prime
  18.     {
  19.       cnt++;
  20.       prime[1;i] = k;
  21.       i++;
  22.     }
  23.   }
  24.   return prime;
  25. };
  26.